* lisp/emacs-lisp/map.el (map--elt-list): Minor refactoring.

diff --git a/lisp/emacs-lisp/map.el b/lisp/emacs-lisp/map.el
index ebf1fe9589abccf7ac7719b4de67301c56c06a92..b64b2bff7681bd28c6a994e357fedcc0476b920d 100644 (file)
--- a/lisp/emacs-lisp/map.el
+++ b/lisp/emacs-lisp/map.el
@@ -258,7 +258,7 @@ form.
 If KEY is not found, return DEFAULT which defaults to nil."
   (let ((pair (assoc key map)))
     (if pair
-        (cdr (assoc key map))
+        (cdr pair)
       default)))
 
 (defun map--elt-array (map key &optional default)